(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 8.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[     33006,        857]
NotebookOptionsPosition[     32390,        831]
NotebookOutlinePosition[     32732,        846]
CellTagsIndexPosition[     32689,        843]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"SetDirectory", "[", 
  RowBox[{"NotebookDirectory", "[", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.519995534748767*^9, 3.5199955415381556`*^9}}],

Cell[BoxData[
 FormBox["\<\"C:\\\\Users\\\\rsinnet\\\\Dropbox\\\\reduction\\\\k2_human_pd\"\
\>", TraditionalForm]], "Output",
 CellChangeTimes->{3.51999554178117*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"datat", "=", 
  RowBox[{"Import", "[", "\"\<t.mat\>\"", "]"}]}]], "Input",
 CellChangeTimes->{{3.519995491247279*^9, 3.519995495252508*^9}, {
  3.519995525860259*^9, 3.519995561442294*^9}, {3.51999560543381*^9, 
  3.519995612210198*^9}, {3.5199957652929535`*^9, 3.5199957656089716`*^9}}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   TagBox[
    PanelBox[GridBox[{
       {
        StyleBox[
         StyleBox[
          DynamicBox[ToBoxes[
            FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"], 
            TraditionalForm],
           ImageSizeCache->{299., {3., 9.}}],
          StripOnInput->False,
          DynamicUpdating->True], "Panel",
         StripOnInput->False,
         Background->None]},
       {
        ItemBox[
         TagBox[
          RowBox[{"{", 
           RowBox[{
            RowBox[{"(", "\[NoBreak]", GridBox[{
               {"10.`", "326.`"}
              },
              
              GridBoxAlignment->{
               "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.27999999999999997`], {
                   Offset[0.7]}, 
                  Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                "Rows" -> {
                  Offset[0.2], {
                   Offset[0.4]}, 
                  Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], 
            ",", 
            RowBox[{"(", "\[NoBreak]", GridBox[{
               {
                RowBox[{"-", "0.405386916130941`"}]},
               {"0.287221090972254`"},
               {"0.174942844630627`"},
               {
                RowBox[{"-", "0.313713169153362`"}]},
               {"0.186975984478924`"},
               {
                RowBox[{"-", "1.746758138437514`"}]},
               {"0.535760006341161`"},
               {"1.599996207956214`"},
               {"1.428052769920923`"},
               {
                RowBox[{"-", "0.095708014551795`"}]}
              },
              
              GridBoxAlignment->{
               "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.27999999999999997`], {
                   Offset[0.7]}, 
                  Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                "Rows" -> {
                  Offset[0.2], {
                   Offset[0.4]}, 
                  Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], 
            ",", 
            RowBox[{"(", "\[NoBreak]", GridBox[{
               {
                RowBox[{"-", "0.405386916130941`"}]},
               {"0.287221090972254`"},
               {"0.174942844630627`"},
               {
                RowBox[{"-", "0.313713169153362`"}]},
               {"0.186975984478924`"},
               {
                RowBox[{"-", "1.746758138437514`"}]},
               {"0.535760006341161`"},
               {"1.599996207956214`"},
               {"1.428052769920923`"},
               {
                RowBox[{"-", "0.095708014551795`"}]}
              },
              
              GridBoxAlignment->{
               "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.27999999999999997`], {
                   Offset[0.7]}, 
                  Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                "Rows" -> {
                  Offset[0.2], {
                   Offset[0.4]}, 
                  Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], 
            ",", 
            RowBox[{"(", "\[NoBreak]", 
             RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}], 
             "\[NoBreak]", ")"}], ",", 
            RowBox[{"(", "\[NoBreak]", 
             RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}], 
             "\[NoBreak]", ")"}], ",", 
            RowBox[{"(", "\[NoBreak]", GridBox[{
               {"1.`", "0.`"}
              },
              
              GridBoxAlignment->{
               "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.27999999999999997`], {
                   Offset[0.7]}, 
                  Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                "Rows" -> {
                  Offset[0.2], {
                   Offset[0.4]}, 
                  Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], 
            ",", 
            RowBox[{"(", "\[NoBreak]", GridBox[{
               {"1.`"}
              },
              
              GridBoxAlignment->{
               "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.27999999999999997`], {
                   Offset[0.7]}, 
                  Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                "Rows" -> {
                  Offset[0.2], {
                   Offset[0.4]}, 
                  Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], 
            ",", 
            RowBox[{"(", "\[NoBreak]", GridBox[{
               {"0.18351420414637803`"},
               {"0.186975984478924`"},
               {
                RowBox[{"-", "0.313713169153362`"}]},
               {"0.174942844630627`"},
               {"0.287221090972254`"},
               {
                RowBox[{"-", "2.5412610531209716`"}]},
               {"3.2460152923031984`"},
               {
                RowBox[{"-", "0.31575616332224976`"}]},
               {"0.452789835995663`"},
               {
                RowBox[{"\[LeftSkeleton]", "19", "\[RightSkeleton]"}]}
              },
              
              GridBoxAlignment->{
               "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.27999999999999997`], {
                   Offset[0.7]}, 
                  Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                "Rows" -> {
                  Offset[0.2], {
                   Offset[0.4]}, 
                  Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], 
            ",", 
            RowBox[{"(", "\[NoBreak]", GridBox[{
               {"1.`", 
                RowBox[{"-", "0.1626259469125463`"}]}
              },
              
              GridBoxAlignment->{
               "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.27999999999999997`], {
                   Offset[0.7]}, 
                  Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                "Rows" -> {
                  Offset[0.2], {
                   Offset[0.4]}, 
                  Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], 
            ",", 
            RowBox[{"(", "\[NoBreak]", GridBox[{
               {
                RowBox[{"(", "\[NoBreak]", GridBox[{
                   {
                    RowBox[{"{", 
                    RowBox[{
                    "0.`", ",", "9.26356808013244`*^-7", ",", 
                    "3.0446436671941003`*^-6", ",", "5.444515897926011`*^-6", 
                    ",", "7.893720436246371`*^-6", ",", 
                    RowBox[{"\[LeftSkeleton]", "316", "\[RightSkeleton]"}], 
                    ",", "0.5359662701932034`", ",", "0.5371262348788224`", 
                    ",", "0.5383019681673724`", ",", "0.5394941211323204`", 
                    ",", "0.5403703835528202`"}], "}"}]}
                  },
                  
                  GridBoxAlignment->{
                   "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
                  GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.7]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}]},
               {
                RowBox[{"(", "\[NoBreak]", GridBox[{
                   {
                    RowBox[{"{", 
                    RowBox[{"0.`", ",", 
                    RowBox[{"\[LeftSkeleton]", "19", "\[RightSkeleton]"}]}], 
                    "}"}]}
                  },
                  
                  GridBoxAlignment->{
                   "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
                  GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.7]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}]},
               {
                RowBox[{"(", "\[NoBreak]", 
                 RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}], 
                 "\[NoBreak]", ")"}]},
               {
                RowBox[{"(", "\[NoBreak]", GridBox[{
                   {
                    RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}]}
                  },
                  
                  GridBoxAlignment->{
                   "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
                  GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.7]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}]},
               {
                RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}]}
              },
              
              GridBoxAlignment->{
               "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.27999999999999997`], {
                   Offset[0.7]}, 
                  Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                "Rows" -> {
                  Offset[0.2], {
                   Offset[0.4]}, 
                  Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], 
            ",", 
            RowBox[{"(", "\[NoBreak]", 
             RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}], 
             "\[NoBreak]", ")"}], ",", 
            RowBox[{"(", "\[NoBreak]", 
             RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}], 
             "\[NoBreak]", ")"}]}], "}"}],
          Short[#, 5]& ],
         Background->GrayLevel[1],
         BaseStyle->{Deployed -> False},
         Frame->True,
         FrameStyle->GrayLevel[0, 0.2],
         StripOnInput->False]},
       {
        RowBox[{
         ButtonBox[
          StyleBox[
           StyleBox[
            DynamicBox[ToBoxes[
              FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], 
              TraditionalForm],
             ImageSizeCache->{54., {1., 9.}}],
            StripOnInput->False,
            DynamicUpdating->True], "Panel",
           StripOnInput->False,
           Background->None],
          Appearance->Automatic,
          
          ButtonFunction:>OutputSizeLimit`ButtonFunction[
           Identity, 15, 23068523248981094208, 5/2],
          Enabled->True,
          Evaluator->Automatic,
          Method->"Queued"], "\[ThinSpace]", 
         ButtonBox[
          StyleBox[
           StyleBox[
            DynamicBox[ToBoxes[
              FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], 
              TraditionalForm],
             ImageSizeCache->{60., {1., 9.}}],
            StripOnInput->False,
            DynamicUpdating->True], "Panel",
           StripOnInput->False,
           Background->None],
          Appearance->Automatic,
          
          ButtonFunction:>OutputSizeLimit`ButtonFunction[
           Identity, 15, 23068523248981094208, 5 2],
          Enabled->True,
          Evaluator->Automatic,
          Method->"Queued"], "\[ThinSpace]", 
         ButtonBox[
          StyleBox[
           StyleBox[
            DynamicBox[ToBoxes[
              FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], 
              TraditionalForm],
             ImageSizeCache->{92., {3., 9.}}],
            StripOnInput->False,
            DynamicUpdating->True], "Panel",
           StripOnInput->False,
           Background->None],
          Appearance->Automatic,
          
          ButtonFunction:>OutputSizeLimit`ButtonFunction[
           Identity, 15, 23068523248981094208, Infinity],
          Enabled->True,
          Evaluator->Automatic,
          Method->"Queued"], "\[ThinSpace]", 
         ButtonBox[
          StyleBox[
           StyleBox[
            DynamicBox[ToBoxes[
              FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], 
              TraditionalForm],
             ImageSizeCache->{78., {1., 9.}}],
            StripOnInput->False,
            DynamicUpdating->True], "Panel",
           StripOnInput->False,
           Background->None],
          Appearance->Automatic,
          ButtonFunction:>FrontEndExecute[{
             FrontEnd`SetOptions[
             FrontEnd`$FrontEnd, 
              FrontEnd`PreferencesSettings -> {"Page" -> "Evaluation"}], 
             FrontEnd`FrontEndToken["PreferencesDialog"]}],
          Evaluator->None,
          Method->"Preemptive"]}]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxDividers->{
       "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, 
        "RowsIndexed" -> {}},
      GridBoxItemSize->{
       "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.5599999999999999]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[1.2]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     DefaultBaseStyle->{},
     FrameMargins->5],
    Deploy,
    DefaultBaseStyle->{Deployed -> True}],
   Out[15]], TraditionalForm]], "Output",
 CellChangeTimes->{{3.519995531978609*^9, 3.5199955622073383`*^9}, {
   3.5199956074619265`*^9, 3.5199956103510914`*^9}, 3.5199957662280073`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["datat"], "Input",
 CellChangeTimes->{{3.519995562663364*^9, 3.519995571619876*^9}}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   TagBox[
    PanelBox[GridBox[{
       {
        StyleBox[
         StyleBox[
          DynamicBox[ToBoxes[
            FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"], 
            TraditionalForm],
           ImageSizeCache->{299., {3., 9.}}],
          StripOnInput->False,
          DynamicUpdating->True], "Panel",
         StripOnInput->False,
         Background->None]},
       {
        ItemBox[
         TagBox[
          RowBox[{"{", 
           RowBox[{
            RowBox[{"(", "\[NoBreak]", GridBox[{
               {"10.`", "326.`"}
              },
              
              GridBoxAlignment->{
               "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.27999999999999997`], {
                   Offset[0.7]}, 
                  Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                "Rows" -> {
                  Offset[0.2], {
                   Offset[0.4]}, 
                  Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], 
            ",", 
            RowBox[{"(", "\[NoBreak]", GridBox[{
               {
                RowBox[{"-", "0.405386916130941`"}]},
               {"0.287221090972254`"},
               {"0.174942844630627`"},
               {
                RowBox[{"-", "0.313713169153362`"}]},
               {"0.186975984478924`"},
               {
                RowBox[{"-", "1.746758138437514`"}]},
               {"0.535760006341161`"},
               {"1.599996207956214`"},
               {"1.428052769920923`"},
               {
                RowBox[{"-", "0.095708014551795`"}]}
              },
              
              GridBoxAlignment->{
               "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.27999999999999997`], {
                   Offset[0.7]}, 
                  Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                "Rows" -> {
                  Offset[0.2], {
                   Offset[0.4]}, 
                  Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], 
            ",", 
            RowBox[{"(", "\[NoBreak]", GridBox[{
               {
                RowBox[{"-", "0.405386916130941`"}]},
               {"0.287221090972254`"},
               {"0.174942844630627`"},
               {
                RowBox[{"-", "0.313713169153362`"}]},
               {"0.186975984478924`"},
               {
                RowBox[{"-", "1.746758138437514`"}]},
               {"0.535760006341161`"},
               {"1.599996207956214`"},
               {"1.428052769920923`"},
               {
                RowBox[{"-", "0.095708014551795`"}]}
              },
              
              GridBoxAlignment->{
               "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.27999999999999997`], {
                   Offset[0.7]}, 
                  Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                "Rows" -> {
                  Offset[0.2], {
                   Offset[0.4]}, 
                  Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], 
            ",", 
            RowBox[{"(", "\[NoBreak]", 
             RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}], 
             "\[NoBreak]", ")"}], ",", 
            RowBox[{"(", "\[NoBreak]", 
             RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}], 
             "\[NoBreak]", ")"}], ",", 
            RowBox[{"(", "\[NoBreak]", GridBox[{
               {"1.`", "0.`"}
              },
              
              GridBoxAlignment->{
               "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.27999999999999997`], {
                   Offset[0.7]}, 
                  Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                "Rows" -> {
                  Offset[0.2], {
                   Offset[0.4]}, 
                  Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], 
            ",", 
            RowBox[{"(", "\[NoBreak]", GridBox[{
               {"1.`"}
              },
              
              GridBoxAlignment->{
               "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.27999999999999997`], {
                   Offset[0.7]}, 
                  Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                "Rows" -> {
                  Offset[0.2], {
                   Offset[0.4]}, 
                  Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], 
            ",", 
            RowBox[{"(", "\[NoBreak]", GridBox[{
               {"0.18351420414637803`"},
               {"0.186975984478924`"},
               {
                RowBox[{"-", "0.313713169153362`"}]},
               {"0.174942844630627`"},
               {"0.287221090972254`"},
               {
                RowBox[{"-", "2.5412610531209716`"}]},
               {"3.2460152923031984`"},
               {
                RowBox[{"-", "0.31575616332224976`"}]},
               {"0.452789835995663`"},
               {
                RowBox[{"\[LeftSkeleton]", "19", "\[RightSkeleton]"}]}
              },
              
              GridBoxAlignment->{
               "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.27999999999999997`], {
                   Offset[0.7]}, 
                  Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                "Rows" -> {
                  Offset[0.2], {
                   Offset[0.4]}, 
                  Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], 
            ",", 
            RowBox[{"(", "\[NoBreak]", GridBox[{
               {"1.`", 
                RowBox[{"-", "0.1626259469125463`"}]}
              },
              
              GridBoxAlignment->{
               "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.27999999999999997`], {
                   Offset[0.7]}, 
                  Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                "Rows" -> {
                  Offset[0.2], {
                   Offset[0.4]}, 
                  Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], 
            ",", 
            RowBox[{"(", "\[NoBreak]", GridBox[{
               {
                RowBox[{"(", "\[NoBreak]", GridBox[{
                   {
                    RowBox[{"{", 
                    RowBox[{
                    "0.`", ",", "9.26356808013244`*^-7", ",", 
                    "3.0446436671941003`*^-6", ",", "5.444515897926011`*^-6", 
                    ",", "7.893720436246371`*^-6", ",", 
                    RowBox[{"\[LeftSkeleton]", "316", "\[RightSkeleton]"}], 
                    ",", "0.5359662701932034`", ",", "0.5371262348788224`", 
                    ",", "0.5383019681673724`", ",", "0.5394941211323204`", 
                    ",", "0.5403703835528202`"}], "}"}]}
                  },
                  
                  GridBoxAlignment->{
                   "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
                  GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.7]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}]},
               {
                RowBox[{"(", "\[NoBreak]", GridBox[{
                   {
                    RowBox[{"{", 
                    RowBox[{"0.`", ",", 
                    RowBox[{"\[LeftSkeleton]", "19", "\[RightSkeleton]"}]}], 
                    "}"}]}
                  },
                  
                  GridBoxAlignment->{
                   "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
                  GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.7]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}]},
               {
                RowBox[{"(", "\[NoBreak]", 
                 RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}], 
                 "\[NoBreak]", ")"}]},
               {
                RowBox[{"(", "\[NoBreak]", GridBox[{
                   {
                    RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}]}
                  },
                  
                  GridBoxAlignment->{
                   "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
                  GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.7]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}]},
               {
                RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}]}
              },
              
              GridBoxAlignment->{
               "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.27999999999999997`], {
                   Offset[0.7]}, 
                  Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                "Rows" -> {
                  Offset[0.2], {
                   Offset[0.4]}, 
                  Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], 
            ",", 
            RowBox[{"(", "\[NoBreak]", 
             RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}], 
             "\[NoBreak]", ")"}], ",", 
            RowBox[{"(", "\[NoBreak]", 
             RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}], 
             "\[NoBreak]", ")"}]}], "}"}],
          Short[#, 5]& ],
         Background->GrayLevel[1],
         BaseStyle->{Deployed -> False},
         Frame->True,
         FrameStyle->GrayLevel[0, 0.2],
         StripOnInput->False]},
       {
        RowBox[{
         ButtonBox[
          StyleBox[
           StyleBox[
            DynamicBox[ToBoxes[
              FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], 
              TraditionalForm],
             ImageSizeCache->{54., {1., 9.}}],
            StripOnInput->False,
            DynamicUpdating->True], "Panel",
           StripOnInput->False,
           Background->None],
          Appearance->Automatic,
          
          ButtonFunction:>OutputSizeLimit`ButtonFunction[
           Identity, 11, 23068523248981094208, 5/2],
          Enabled->True,
          Evaluator->Automatic,
          Method->"Queued"], "\[ThinSpace]", 
         ButtonBox[
          StyleBox[
           StyleBox[
            DynamicBox[ToBoxes[
              FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], 
              TraditionalForm],
             ImageSizeCache->{60., {1., 9.}}],
            StripOnInput->False,
            DynamicUpdating->True], "Panel",
           StripOnInput->False,
           Background->None],
          Appearance->Automatic,
          
          ButtonFunction:>OutputSizeLimit`ButtonFunction[
           Identity, 11, 23068523248981094208, 5 2],
          Enabled->True,
          Evaluator->Automatic,
          Method->"Queued"], "\[ThinSpace]", 
         ButtonBox[
          StyleBox[
           StyleBox[
            DynamicBox[ToBoxes[
              FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], 
              TraditionalForm],
             ImageSizeCache->{92., {3., 9.}}],
            StripOnInput->False,
            DynamicUpdating->True], "Panel",
           StripOnInput->False,
           Background->None],
          Appearance->Automatic,
          
          ButtonFunction:>OutputSizeLimit`ButtonFunction[
           Identity, 11, 23068523248981094208, Infinity],
          Enabled->True,
          Evaluator->Automatic,
          Method->"Queued"], "\[ThinSpace]", 
         ButtonBox[
          StyleBox[
           StyleBox[
            DynamicBox[ToBoxes[
              FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], 
              TraditionalForm],
             ImageSizeCache->{78., {1., 9.}}],
            StripOnInput->False,
            DynamicUpdating->True], "Panel",
           StripOnInput->False,
           Background->None],
          Appearance->Automatic,
          ButtonFunction:>FrontEndExecute[{
             FrontEnd`SetOptions[
             FrontEnd`$FrontEnd, 
              FrontEnd`PreferencesSettings -> {"Page" -> "Evaluation"}], 
             FrontEnd`FrontEndToken["PreferencesDialog"]}],
          Evaluator->None,
          Method->"Preemptive"]}]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxDividers->{
       "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, 
        "RowsIndexed" -> {}},
      GridBoxItemSize->{
       "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.5599999999999999]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[1.2]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     DefaultBaseStyle->{},
     FrameMargins->5],
    Deploy,
    DefaultBaseStyle->{Deployed -> True}],
   Out[11]], TraditionalForm]], "Output",
 CellChangeTimes->{{3.5199955634074063`*^9, 3.5199955722999153`*^9}}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"HumanFunction", "[", "\[Tau]_", "]"}], ":=", 
   RowBox[{
    FractionBox[
     RowBox[{
      RowBox[{
       RowBox[{"a", "[", "1", "]"}], " ", 
       RowBox[{"Cos", "[", 
        RowBox[{
         RowBox[{"a", "[", "2", "]"}], " ", "\[Tau]"}], "]"}]}], "+", 
      RowBox[{
       RowBox[{"a", "[", "3", "]"}], " ", 
       RowBox[{"Sin", "[", 
        RowBox[{
         RowBox[{"a", "[", "2", "]"}], " ", "\[Tau]"}], "]"}]}]}], 
     RowBox[{"Exp", "[", 
      RowBox[{
       RowBox[{"a", "[", "4", "]"}], "\[Tau]"}], "]"}]], "+", 
    RowBox[{"a", "[", "5", "]"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.5199952526276307`*^9, 3.5199953016504345`*^9}}],

Cell[BoxData[
 RowBox[{"FindFit", "[", 
  RowBox[{"data", ",", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"a", "[", "i", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "5"}], "}"}]}], "]"}], ",", "\[Tau]"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.519995329214011*^9, 3.519995374859622*^9}},
 EmphasizeSyntaxErrors->True]
},
WindowSize->{707, 787},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
FrontEndVersion->"8.0 for Microsoft Windows (64-bit) (November 7, 2010)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[579, 22, 172, 3, 31, "Input"],
Cell[754, 27, 167, 3, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[958, 35, 311, 5, 31, "Input"],
Cell[1272, 42, 14992, 372, 462, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[16301, 419, 97, 1, 31, "Input"],
Cell[16401, 422, 14916, 371, 462, "Output"]
}, Open  ]],
Cell[31332, 796, 709, 21, 49, "Input"],
Cell[32044, 819, 342, 10, 31, "Input"]
}
]
*)

(* End of internal cache information *)
